home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / amort92.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-08-09  |  2.6 KB  |  77 lines
  1. 10  REM set page length
  2. 20  LPRINT CHR$(27) CHR$(67);CHR$(66)
  3. 50  CLS
  4. 140  REM print screen asking for information
  5. 150  PRINT:PRINT:PRINT:PRINT TAB(17)  "INPUT THE PRINCIPAL; THE INTEREST RATE (A.P.R.); AND EITHER THE TERM OF THE LOAN (IN MONTHS) OR THE MONTHLY PAYMENT"
  6. 155  PRINT:PRINT TAB(17) "ENTER A RETURN FOR THE UNKNOWN TERM OR MONTHLY PAYMENT"
  7. 160  PRINT:PRINT TAB(25)"PRESS RETURN AFTER ENTRY"
  8. 170  PRINT
  9. 180  PRINT TAB(10): INPUT"PRINCIPAL       $",P
  10. 190  PRINT
  11. 200  PRINT TAB(10): INPUT"INTEREST RATE    ",I
  12. 210  PRINT
  13. 220  PRINT TAB(10): INPUT"TERM OF LOAN     ",T
  14. 230  PRINT
  15. 240  PRINT TAB(10): INPUT"MONTHLY PAYMENT  ",MP
  16. 250  MI = I/1200
  17. 260  IF T =0 THEN GOSUB 510
  18. 270  IF MP=0 THEN GOSUB 530
  19. 280  B=P:M=1:IP=B*MI:AI=IP:PP=MP-IP:AP=PP
  20. 290  CLS
  21. 300  LPRINT"==============================================================================":GOSUB 580
  22. 310  LPRINT TAB(19) CHR$(14) "AMORTIZATION SCHEDULE":GOSUB 580
  23. 330  LPRINT:GOSUB 580
  24. 340  LPRINT TAB(2)"PRINCIPAL = $";P TAB(27)"INTEREST RATE =";I;"%" TAB(55) "TERM IN MONTHS =";USING"#,###";T:GOSUB 580
  25. 350  LPRINT:LPRINT TAB(23)"MONTHLY PAYMENT = ";USING "$$#,###.##";MP;
  26. 360  LPRINT:GOSUB 580:LPRINT:GOSUB 580
  27. 370  LPRINT"==============================================================================":GOSUB 580
  28. 380  LPRINT TAB(2)"PAYMENT" TAB(12)"DATE OF" TAB(22)"INTEREST" TAB(33)"ACCUMULATED" TAB(47)"PRINCIPAL" TAB(59) "ACCUMULATED" TAB(73)"LOAN":GOSUB  580
  29. 390  LPRINT TAB(4)"NO." TAB(12)"PAYMENT" TAB(22)"PAYMENT" TAB(35)"INTEREST" TAB(48)"PAYMENT" TAB(60)"PRINCIPAL" TAB(73)"BALANCE":GOSUB 580
  30. 400  LPRINT"==============================================================================="
  31. 410   M=0:B=P:IP=0:AI=0:PP=0:AP=0
  32. 420  LPRINT TAB(3)M;
  33. 430  LPRINT TAB(20) USING"###,###.##";IP;
  34. 440  LPRINT TAB(33) USING"###,###.##";AI;
  35. 450  LPRINT TAB(46) USING"###,###.##";PP;
  36. 460  LPRINT TAB(58) USING"###,###.##";AP;
  37. 470  LPRINT TAB(71) USING"###,###.##";B:GOSUB 580
  38. 480  IF B-MP <0 THEN 700
  39. 490  M=M+1:IP=B*MI:AI=AI+IP:PP=MP-IP:AP=AP+PP:B=B-PP
  40. 500  GOTO 420
  41. 510  T=LOG(1/(1-MI*P/MP))/LOG (1+MI)
  42. 520  RETURN
  43. 530  MI=I/1200
  44. 540  X=P*MI
  45. 550  Y=1-(((1+MI)^(-T)))
  46. 560  MP=X/Y
  47. 570  RETURN
  48. 580  REM SUBROUTINE CHECKS LINE COUNT
  49. 590  LC=LC+1
  50. 600  IF LC <55 THEN 640
  51. 610  LPRINT CHR$(12)
  52. 620  LC=0
  53. 630  GOSUB 650
  54. 640  RETURN
  55. 650  LPRINT"==============================================================================":GOSUB 580
  56. 660  LPRINT TAB(2)"PAYMENT" TAB(12)"DATE OF" TAB(22)"INTEREST" TAB(33)"ACCUMULATED" TAB(47)"PRINCIPAL" TAB(59) "ACCUMULATED" TAB(73)"LOAN":GOSUB  580
  57. 670  LPRINT TAB(4)"NO." TAB(12)"PAYMENT" TAB(22)"PAYMENT" TAB(35)"INTEREST" TAB(48)"PAYMENT" TAB(60)"PRINCIPAL" TAB(73)"BALANCE":GOSUB 580
  58. 680  LPRINT"==============================================================================="
  59. 690  RETURN
  60. 700  LPRINT"================================================================================";
  61. 710  X=0
  62. 720  FP=B*MI+B
  63. 730  IP=FP-B
  64. 740  AI=AI+IP
  65. 750  PP=B
  66. 760  AP=P
  67. 770  LPRINT "Final Payment"
  68. 780  LPRINT USING "$$###,###.##";FP;
  69. 790  LPRINT TAB(20) USING "###,###.##";IP;
  70. 800  LPRINT TAB(33) USING "###,###.##";AI;
  71. 810  LPRINT TAB(46) USING "###,###.##";PP;
  72. 820  LPRINT TAB(58) USING "###,###.##";AP;
  73. 830  LPRINT TAB(78);X;
  74. 840  LPRINT"================================================================================"
  75. 850  LPRINT CHR$(12)
  76. 851  END
  77.